		<%
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "select * from (select top 25 * from NewDynamic order by ID desc) order by Hot desc"
rs.Open strSQL, dbconnection, adOpenDynamic, 3
Dim TextArray4(25)

for i = 0 to ubound(TextArray4) 
	if not rs.eof then
		TextArray4(i)="<A href="""&rs("Url")&""" class=""Table4A"">"&rs("Text")&"</A>"
		rs.movenext
	else
		TextArray4(i)="&nbsp;"
	end if
next
set rs = nothing

strSQL = "select top 1 * from ProName where id=1"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, dbconnection, adOpenDynamic, 3
%>
<div class="TableMenuLeftDiv"></div>
<div class="TableMenuDiv4"><div class="TableMenuTextDiv88"><%=rs("Names")%></div></div>
<div class="TableMenuRightDiv"></div>
	<div class="TableDiv88">
	<div class="GameReplyDiv1">
			<div><%=TextArray4(0)%></div>
			<div>&nbsp;<%=TextArray4(1)%></div>
			<div>&nbsp;<%=TextArray4(2)%></div>
			<div>&nbsp;<%=TextArray4(3)%></div>
			<div>&nbsp;<%=TextArray4(4)%></div>
			<div>&nbsp;<%=TextArray4(5)%></div>
			<div>&nbsp;<%=TextArray4(6)%></div>
			<div>&nbsp;<%=TextArray4(7)%></div>
			<div>&nbsp;<%=TextArray4(8)%></div>
			<div>&nbsp;<%=TextArray4(9)%></div>
			<div>&nbsp;<%=TextArray4(10)%></div>
			<div>&nbsp;<%=TextArray4(11)%></div>
			<div>&nbsp;<%=TextArray4(12)%></div>
			<div>&nbsp;<%=TextArray4(13)%></div>
			<div>&nbsp;<%=TextArray4(14)%></div>
			<div>&nbsp;<%=TextArray4(15)%></div>
			<div>&nbsp;<%=TextArray4(16)%></div>
			<div>&nbsp;<%=TextArray4(17)%></div>
			<div>&nbsp;<%=TextArray4(18)%></div>
			<div>&nbsp;<%=TextArray4(19)%></div>
			<div>&nbsp;<%=TextArray4(20)%></div>
			<div>&nbsp;<%=TextArray4(21)%></div>
			<div>&nbsp;<%=TextArray4(22)%></div>
			<div>&nbsp;<%=TextArray4(23)%></div>
			<div>&nbsp;<%=TextArray4(24)%></div>
			</div>
		</div>
